home *** CD-ROM | disk | FTP | other *** search
- object frmOptionsSubject: TfrmOptionsSubject
- Left = 242
- Top = 102
- ActiveControl = edit1
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Subject line options'
- ClientHeight = 274
- ClientWidth = 540
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- HelpFile = 'spambuster.hlp'
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object EsLabel1: TEsLabel
- Left = 8
- Top = 3
- Width = 449
- Height = 35
- Appearance = apCustom
- Caption = 'The Subject line characteristics'
- ColorScheme = csCustom
- CustomSettings.ShadowColor = clOlive
- CustomSettings.ShadowDepth = 4
- CustomSettings.ShadowStyle = ssExtrude
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label1: TLabel
- Left = 13
- Top = 42
- Width = 508
- Height = 33
- AutoSize = False
- Caption =
- 'If text in the subject line follows any of these patterns it wil' +
- 'l be marked for deletion since it looks like a potential spam.'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 16
- Top = 96
- Width = 121
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'The subject line:'
- end
- object cbCase: TCheckBox
- Left = 144
- Top = 160
- Width = 241
- Height = 17
- HelpContext = 2002
- Caption = '&Check if case matters (upper/lower)'
- TabOrder = 2
- end
- object btOK: TButton
- Left = 349
- Top = 216
- Width = 76
- Height = 28
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 3
- OnClick = btOKClick
- end
- object btCancel: TButton
- Left = 437
- Top = 216
- Width = 76
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 4
- end
- object Panel1: TPanel
- Left = 8
- Top = 192
- Width = 297
- Height = 73
- TabOrder = 5
- object Image1: TImage
- Left = 144
- Top = 14
- Width = 17
- Height = 25
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object Image2: TImage
- Left = 143
- Top = 43
- Width = 17
- Height = 25
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label6: TLabel
- Left = 19
- Top = 27
- Width = 105
- Height = 39
- AutoSize = False
- Caption = 'Note: Only messages with a check mark will be deleted.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label2: TLabel
- Left = 8
- Top = 6
- Width = 121
- Height = 16
- Caption = 'Mark message with :'
- end
- object rbCheck: TRadioButton
- Left = 160
- Top = 15
- Width = 100
- Height = 17
- HelpContext = 2003
- Caption = 'check &mark'
- TabOrder = 0
- end
- object rbQuestion: TRadioButton
- Left = 160
- Top = 45
- Width = 113
- Height = 17
- HelpContext = 2003
- Caption = '&question mark'
- TabOrder = 1
- end
- end
- object cbWhat: TComboBox
- Left = 143
- Top = 93
- Width = 193
- Height = 24
- HelpContext = 2001
- Style = csDropDownList
- ItemHeight = 16
- Items.Strings = (
- 'Contains'
- 'Contains (whole word)'
- 'Equals (exact match)'
- 'Starts with'
- 'Ends with'
- 'Is blank or empty'
- 'Is all UPPERCASE')
- TabOrder = 0
- OnClick = cbWhatClick
- end
- object edit1: TComboBox
- Left = 143
- Top = 125
- Width = 370
- Height = 24
- HelpContext = 2000
- ItemHeight = 16
- Items.Strings = (
- '!!'
- '$$'
- '=='
- 'adult site'
- 'adults only'
- 'advertise'
- 'advertising'
- 'bulk'
- 'buy'
- 'call 800'
- 'dollar'
- 'exciting'
- 'extra income'
- 'for only'
- 'free'
- 'guaranteed'
- 'help wanted'
- 'huge'
- 'income'
- 'incredible deal'
- 'lottery'
- 'make money'
- 'market'
- 'million'
- 'MLM'
- 'mlm'
- 'naked'
- 'nude'
- 'offer'
- 'opportunity'
- 'please read'
- 'profit'
- 'read this'
- 'rich'
- 'save $'
- 'secret'
- 'sex'
- 'spam'
- 'specials'
- 'weight'
- 'win $'
- 'women'
- 'work at home'
- 'XXX')
- TabOrder = 1
- end
- end
-